home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtbevelbox.bb2 next >
Text File  |  2002-01-30  |  1KB  |  47 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 1,"topaz.font",11
  5. Use IntuiFont 1
  6.  
  7. GTButton 0,1,100,100,150,17,"Required",#PLACETEXT_IN
  8.  
  9. Window 0,0,0,400,300,$100f,"jjlk",-1,-1
  10. DefaultOutput
  11.  
  12. AttachGTList 0,0
  13.  
  14. ; The GTList must be attached to a window before the bevel boxes can be drawn
  15. ; (and you need to have gadgets created - why else would you need a GTList? ;)
  16.  
  17. ; The default style of bevel box
  18. GTBevelBox 0,20,20,20,20,0
  19.  
  20. ; A recessed bevel box
  21. GTBevelBox 0,50,20,20,20,1
  22.  
  23. ; These commands will only work on OS3+ (because the type can only be used on these machines)
  24. ; Thsi shows all combinations of recessed/raised and the different
  25. ; bevel styles
  26. GTBevelBox 0,20,50,20,20,0,#BBFT_BUTTON
  27. GTBevelBox 0,20,80,20,20,0,#BBFT_RIDGE
  28. GTBevelBox 0,20,110,20,20,0,#BBFT_ICONDROPBOX
  29.  
  30. GTBevelBox 0,50,50,20,20,1,#BBFT_BUTTON
  31. GTBevelBox 0,50,80,20,20,1,#BBFT_RIDGE
  32. GTBevelBox 0,50,110,20,20,1,#BBFT_ICONDROPBOX
  33.  
  34.  
  35. While ev.l<>#IDCMP_CLOSEWINDOW
  36.     ev.l=WaitEvent
  37.     Select ev
  38.         Case #IDCMP_GADGETDOWN
  39.             NPrint "Gadget down - ",GadgetHit
  40.         Case #IDCMP_GADGETUP
  41.             NPrint "Gadget up - ",GadgetHit
  42.     End Select
  43. Wend
  44. DetachGTList 0
  45. End
  46.  
  47.